EnigmA Amiga Run 1997 April/EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso/EARCD/util/pack/xpk_Source.lha/xpk_Source/shell/xBench.c

C/C++ Source or Header | 1996-12-06 | 4KB | 208 lines

#define NAME     "xBench"
#define REVISION "1"

/* Programmheader

    Name:        xBench
    Author:        SDI (before 1.1 Urban Dominik Müller)
    Distribution:    PD
    Description:    xpk benchmark utility
    Compileropts:    -
    Linkeropts:    -l xpkmaster
    Linkeropts SAS: LIB LIB:scm.lib

 1.1   29.11.96 : added version string
*/

#include "SDI_defines.h"
#define SDI_TO_ANSI
#include "SDI_ASM_STD_protos.h"
#include <pragma/exec_lib.h>
#include <pragma/dos_lib.h>
#include <pragma/xpkmaster_lib.h>
#include <pragma/timer_lib.h>
#include <exec/memory.h>
#include <exec/devices.h>

#ifdef __MAXON__
  #define __asm
  #define __saveds
#endif

#define THREE_BUFS    0
#define NOCRC        0

struct timerequest timerequest;
struct Library *TimerBase = NULL;
struct Library *XpkBase = NULL;
BPTR fh = 0;

UBYTE errbuf[XPKERRMSGSIZE + 1];    /* +1 to make room for '\n'        */
STRPTR Password = 0;
STRPTR buf1 = 0, buf2 = 0, buf3 = 0;
LONG bufsize;

void end(STRPTR str)
{
  if(fh)        Close(fh);
  if(buf3)        FreeMem(buf3, bufsize);
  if(buf2)        FreeMem(buf2, bufsize);
  if(buf1)        FreeMem(buf1, bufsize);
  if(TimerBase)        CloseDevice((struct IORequest *) & timerequest);
  if(XpkBase)        CloseLibrary(XpkBase);
  if(str)        printf ("%s\n", str);

  exit (0);
}

void init(void)
{
  if(OpenDevice("timer.device", 0, (struct IORequest *) & timerequest, 0))
    end("Can't open timer.device");

  TimerBase = &timerequest.tr_node.io_Device->dd_Library;

  if(!(XpkBase = OpenLibrary (XPKNAME, 0)))
    end("Can't open " XPKNAME);
}

void testfile(STRPTR packer, STRPTR file)
{
  struct EClockVal eval1, eval2;
  struct FileInfoBlock fib;
  ULONG freq, ulen, ulen2, clen, ctime, utime;
  LONG cf;

  if(!(fh = Open(file, MODE_OLDFILE)))
    end("Cannot open input file");

  if(!(ExamineFH (fh, &fib)))
    end("Failed to ExamineFH input file");

  bufsize = fib.fib_Size + fib.fib_Size / 32 + 2 * XPK_MARGIN;

  if(!(buf1 = (STRPTR) AllocMem(bufsize, MEMF_FAST)))
    end("Out of memory");

  if(!(buf2 = (STRPTR) AllocMem(bufsize, MEMF_FAST)))
    end("Out of memory");

#if THREE_BUFS
  if(!(buf3 = (STRPTR) AllocMem(bufsize, MEMF_FAST)))
    end("Out of memory");
#endif

  ulen = Read(fh, buf1, fib.fib_Size);

  if(ulen != fib.fib_Size)
    end("Could not read whole file with one Read()");

  Close(fh);
  fh = 0;

  /*--------------------------------------------------------*/

  Forbid ();
  freq = ReadEClock (&eval1);
  if(XpkPackTags(XPK_InBuf, buf1,
         XPK_InLen, ulen,
         XPK_OutBuf, buf2,
         XPK_OutBufLen, bufsize,
         XPK_GetOutLen, &clen,
         XPK_GetError, errbuf,
         XPK_Password, Password,
         XPK_PackMethod, packer,
         TAG_DONE))
  {
    Permit();
    end(errbuf);
  }

  ReadEClock(&eval2);
  Permit();
  ctime = eval2.ev_lo - eval1.ev_lo;

  /*--------------------------------------------------------*/

  Forbid();
  ReadEClock(&eval1);

  if(XpkUnpackTags(XPK_InBuf, buf2,
           XPK_InLen, clen,
#if THREE_BUFS
           XPK_OutBuf, buf3,
#else
           XPK_OutBuf, buf1,
#endif
           XPK_OutBufLen, bufsize,
           XPK_GetOutLen, &ulen2,
           XPK_GetError, errbuf,
#if NOCRC
           XPK_NoCRC, TRUE,
#endif
           XPK_Password, Password,
           TAG_DONE))
  {
    Permit();
    end(errbuf);
  }

  ReadEClock(&eval2);
  Permit();
  utime = eval2.ev_lo - eval1.ev_lo;

  /*--------------------------------------------------------*/

  cf = 1000 - 1000 * clen / ulen;

  if(cf < 0)
    cf = 0;

  printf("%-8s   %6ld %6ld %2ld.%ld%%    %3ld.%02ld %7ld     %2ld.%02ld %7ld\n",
      packer,
      ulen, clen, cf / 10, cf % 10,
      ctime / freq, (100 * (ctime % freq)) / freq, (int) ((double) freq * (double) ulen / (double) ctime),
      utime / freq, (100 * (utime % freq)) / freq, (int) ((double) freq * (double) ulen / (double) utime)
    );

  if(ulen != ulen2)
  {
    printf("decompressed length is %ld !!!\n", ulen2);
  }

#if THREE_BUFS
  if(buf3)
  {
    FreeMem(buf3, bufsize);
    buf3 = 0;
  }
#endif
  if(buf2)
  {
    FreeMem(buf2, bufsize);
    buf2 = 0;
  }
  if(buf1)
  {
    FreeMem (buf1, bufsize);
    buf1 = 0;
  }
}

main(int argc, char *argv[])
{
  LONG i = 1;

  if(!strcmp (argv[1], "-p"))
    Password = "testpw", i++;

  init();

  printf("Warning: Have to Forbid() task rescheduling for accurate measurements.\n");
  printf("Packer      UComp   Comp    CF     CTime    CSpd     UTime    USpd\n");
  for(; i < argc - 1; i++)
    testfile (argv[i], argv[argc - 1]);

  end(NULL);
}